home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Business / Check Stuff / CheckWriter / Check Writer / card_5348.txt < prev    next >
Encoding:
Text File  |  1988-04-19  |  2.7 KB  |  120 lines
  1. -- card: 5348 from stack: in
  2. -- bmap block id: 9924
  3. -- flags: 4000
  4. -- background id: 3629
  5. -- name: print
  6. ----- HyperTalk script -----
  7. -- Print all marked checks.
  8.  
  9. on printChecks
  10.   open printing with dialog
  11.   close printing
  12.   set lockMessages to true
  13.   repeat with i = (the number of first card of bkgnd "Check") to the number of cards
  14.     if (background field "Print" of card i) = true then
  15.       go to card i
  16.       set cursor to four
  17.       open printing
  18.       put background field "Date" into card field "Date" of card "Template"
  19.       put background field "Year" into card field "Year" of card "Template"
  20.       put background field "Pay to" into card field "Pay to" of card "Template"
  21.       put background field "Amount" into card field "Amount" of card "Template"
  22.       put background field "Text Amount" into card field "Text Amount" of card "Template"
  23.       put background field "For" into card field "For" of card "Template"
  24.       print card "Template"
  25.       close printing
  26.     end if
  27.   end repeat
  28.   set lockMessages to false
  29.   go to first card
  30. end printChecks
  31.  
  32. on enterKey
  33.   send mouseUp to button "I'm Ready"
  34. end enterKey
  35.  
  36. on returnKey
  37.   send mouseUp to button "I'm Ready"
  38. end returnKey
  39.  
  40.  
  41.  
  42.  
  43. -- part 1 (field)
  44. -- low flags: 01
  45. -- high flags: 0000
  46. -- rect: left=57 top=139 right=255 bottom=449
  47. -- title width / last selected line: 0
  48. -- icon id / first selected line: 0 / 0
  49. -- text alignment: 0
  50. -- font id: 3
  51. -- text size: 12
  52. -- style flags: 0
  53. -- line height: 16
  54. -- part name: 
  55.  
  56.  
  57. -- part 2 (field)
  58. -- low flags: 01
  59. -- high flags: 0000
  60. -- rect: left=57 top=62 right=99 bottom=449
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 0 / 0
  63. -- text alignment: 1
  64. -- font id: 3
  65. -- text size: 18
  66. -- style flags: 1280
  67. -- line height: 24
  68. -- part name: 
  69.  
  70.  
  71. -- part 3 (button)
  72. -- low flags: 00
  73. -- high flags: A003
  74. -- rect: left=355 top=286 right=308 bottom=455
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 0 / 0
  77. -- text alignment: 1
  78. -- font id: 0
  79. -- text size: 12
  80. -- style flags: 0
  81. -- line height: 16
  82. -- part name: I'm Ready
  83. ----- HyperTalk script -----
  84. on mouseUp
  85.   printChecks
  86. end mouseUp
  87.  
  88.  
  89.  
  90. -- part 4 (button)
  91. -- low flags: 00
  92. -- high flags: A003
  93. -- rect: left=238 top=286 right=308 bottom=338
  94. -- title width / last selected line: 0
  95. -- icon id / first selected line: 0 / 0
  96. -- text alignment: 1
  97. -- font id: 0
  98. -- text size: 12
  99. -- style flags: 0
  100. -- line height: 16
  101. -- part name: Cancel
  102. ----- HyperTalk script -----
  103. on mouseUp
  104.   go to first card
  105. end mouseUp
  106.  
  107.  
  108.  
  109. -- part contents for card part 1
  110. ----- text -----
  111. In the dialog box that will follow, specify the following:
  112.  
  113.      ‚Ä¢  Darker printing
  114.      ‚Ä¢  Manual paper feed
  115.      ‚Ä¢  Print full size cards
  116.      ‚Ä¢  Standard format
  117.  
  118. -- part contents for card part 2
  119. ----- text -----
  120. How to set up for check printing